#!/usr/bin/perl
use strict;
use Template;

my $template = Template->new({ 
        INCLUDE_PATH => ['templates','/usr/local/tt2/templates']
    });

my $file = 'welcome.tt';
my $vars = { 
    message => '欢迎来到这里',
};



$template->process($file, $vars)
|| die $template->error(), "\n";


